home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 52 / Amiga Format AFCD52 (Issue 136, May 2000).iso / -serious- / programming / c / stormamiga_lib-v45_00d / hd-installer_script < prev    next >
Text File  |  2000-02-28  |  11KB  |  438 lines
  1. ;*************************************************************
  2. ;*  stormamiga.lib Installer Version 3.6d  29.January 2000   *
  3. ;*                                                           *
  4. ;*        Copyright © 1996/2000 by CyberdyneSystems          *
  5. ;*                written by Matthias Henze                  *
  6. ;*       english translation written by Thomas Blätte        *
  7. ;*                                                           *
  8. ;*************************************************************
  9. ;
  10. ; $VER: HD-Installer_script 3.6d (29.01.00)
  11.  
  12. (set stormamiga-Version "Version 45.00 beta 1")
  13. (set stormamiga-Datum "29.Januar 2000")
  14. (set stormamiga-Datum_e "29 January 2000")
  15.  
  16. ;====================================================================
  17. ; Initialisierungen
  18. ;====================================================================
  19.  
  20. (set @default-dest "")
  21.  
  22. (if (= @language "deutsch")
  23.  (
  24.     (set #welcome (cat
  25.     "\nWillkommen bei der Installation der \n"
  26.     "D E M O V E R S I O N\n"
  27.     "der\n"
  28.     "\"stormamiga.lib\"\n"
  29.     ""stormamiga-Version" vom "stormamiga-Datum"\n\n"
  30.     "Dieses Skript installiert die \"stormamiga.lib\",\n"
  31.     "entsprechend Ihrer Angaben, auf Ihre Festplatte.\n\n\n"
  32.     "Kopierrecht © 1996/2000 bei CyberdyneSystems\n"
  33.     "geschrieben von Matthias Henze"))
  34.     
  35.  
  36.     (set #StormC-Version_Auswahl (cat
  37.     "\nMöchten Sie die \"stormamiga.lib\" für StormC V2 oder für StormC V3 installieren.\n"))
  38.  
  39.     (set #V2  " StormC V2")
  40.     (set #V3  " StormC V3")
  41.  
  42.  
  43.     (set #startup_Auswahl (cat
  44.     "\nWelche(n) Startupcode(s) möchten Sie installieren?\n"))
  45.     
  46.     (set #FAR_C_Startupcode       " \"stormamiga_startups.o\"     (Far Code)")
  47.     (set #FAR_C_C++_Startupcode   " \"stormamiga_C++_startups.o\" (Far Code)")
  48.  
  49.     
  50.     (set #Versions_Auswahl (cat
  51.     "\nWählen Sie die Bibliothek(en) aus, die Sie installieren möchten.\n"))
  52.     
  53.     (set #MC68EC020+            " Bibliothek für MC68EC020+")
  54.     
  55.        
  56.     (set #Standardbeispiele_Auswahl (cat
  57.     "\nUm die Vorteile der \"stormamiga.lib\" etwas zu verdeutlichen, habe ich einige Beispiele beigelegt.\n"
  58.     "\nMöchten Sie diese Beispiele installieren.\n"))
  59.     
  60.     (set #ja    "ja")
  61.     (set #nein  "nein")
  62.     
  63.     (set #Beispiele_Liste (cat
  64.     "Installation der Beispiele.\n"
  65.     "Bitte wählen Sie ein Laufwerk oder ein Verzeichnis.\n"
  66.     "Ein Verzeichnis \"stormamiga_lib_Examples\" wird automatisch erzeugt."))
  67.     
  68.     (set #Spezialbeispiele_Auswahl (cat
  69.     "\nUm die Vorteile und Anwendungsmöglichkeiten der Spezialfunktionen etwas zu verdeutlichen, habe ich einige Beispiele beigelegt.\n"
  70.     "Wenn Sie bereits die Standardbeispiele installiert haben, wird automatisch das gleiche Zielverzeichnis benutzt. Ansonsten können Sie ein Zielverzeichnis auswählen.\n"
  71.     "\nMöchten Sie diese Beispiele installieren.\n"))
  72.     
  73.     
  74.     (set #Spezialfunktionen_Auswahl (cat
  75.     "\nMöchten Sie die Spezialfunktionen der \"stormamiga.lib\" nutzen.\n"))
  76.     
  77.     
  78.     (set #User.dic_Auswahl (cat
  79.     "\nUm das Syntax Highlighting auch für die Spezialfunktionen der \"stormamiga.lib\" nutzen zu können, ist es notwendig ein Benutzerlexikon zu installieren.\n"
  80.     "\nWählen Sie aus, ob und mit welchem Name das Benutzerlexikon installiert werden soll.\n"))
  81.     
  82.     (set #User1.dic     "User 1.dic")
  83.     (set #User2.dic     "User 2.dic")
  84.     (set #User3.dic     "User 3.dic")
  85.     (set #kein_User.dic "Kein Benutzerlexikon installieren")
  86.     
  87.     
  88.     (set #Anleitungen_Auswahl (cat
  89.     "\nWählen Sie die Sprache für die AmigaGuide Dokumentation aus.\n"))
  90.     
  91.     (set #Deutsch " Deutsch")
  92.     (set #English " English")
  93.     
  94.     (set #Anleitungen_Liste (cat
  95.     "Installation der Anleitung(en).\n"
  96.     "Bitte wählen Sie ein Laufwerk oder ein Verzeichnis.\n"
  97.     "Es wird kein Verzeichnis erzeugt."))
  98.  )
  99.  (
  100.     (set #welcome (cat
  101.     "\nWelcome to the installation of the\n"
  102.     "D E M O V E R S I O N\n"
  103.     "of\n"
  104.     "\"stormamiga.lib\"\n"
  105.     ""stormamiga-Version" from "stormamiga-Datum_e"\n\n"
  106.     "This script installs the \"stormamiga.lib\"\n"
  107.     "according to your specification to your harddisk.\n\n\n"
  108.     "Copyright © 1996/2000 by CyberdyneSystems\n"
  109.     "written by Matthias Henze"))
  110.     
  111.  
  112.     (set #StormC-Version_Auswahl (cat
  113.     "\nPlease choose whether you like to install the \"stormamiga.lib\" for StormC V2 or for StormC V3.\n"))
  114.  
  115.     (set #V2  " StormC V2")
  116.     (set #V3  " StormC V3")
  117.  
  118.  
  119.     (set #startup_Auswahl (cat
  120.     "\nWhich startup code(s) do you want to install?\n"))
  121.     
  122.     (set #FAR_C_Startupcode       " \"stormamiga_startups.o\"     (Far Code)")
  123.     (set #FAR_C_C++_Startupcode   " \"stormamiga_C++_startups.o\" (Far Code)")
  124.  
  125.     
  126.     (set #Versions_Auswahl (cat
  127.     "\nPlease choose the library(-ies) you want to install.\n"))
  128.     
  129.     (set #MC68EC020+            " library for MC68EC020+")
  130.        
  131.  
  132.     (set #Standardbeispiele_Auswahl (cat
  133.     "\nI added some examples to show the advanages of the \"stormamiga.lib\".\n"
  134.     "\nDo you want to install these examples?\n"))
  135.     
  136.     (set #ja    "yes")
  137.     (set #nein  "no")
  138.     
  139.     (set #Beispiele_Liste (cat
  140.     "Installation of the examples.\n"
  141.     "Please choose a volume or directory.\n"
  142.     "A directory \"stormamiga_lib_Examples\" will be created automatically."))
  143.     
  144.     (set #Spezialbeispiele_Auswahl (cat
  145.     "\nI added some examples to show the advanages and features of the special functions.\n"
  146.     "If you allready installed the standard examples, the same destination directory will be used. If not, you may choose a destination directory.\n"
  147.     "\nDo you want to install these examples?\n"))
  148.     
  149.     
  150.     (set #Spezialfunktionen_Auswahl (cat
  151.     "\nDo you want to use the special functions of the \"stormamiga.lib\"?\n"))
  152.     
  153.     
  154.     (set #User.dic_Auswahl (cat
  155.     "\nTo make Syntax Highlighting also available for the special functions of the \"stormamiga.lib\", it is necessary to install a user dictonary.\n"
  156.     "\nPlease choose the name of the user dictionary if you like to install it.\n"))
  157.     
  158.     (set #User1.dic     "User 1.dic")
  159.     (set #User2.dic     "User 2.dic")
  160.     (set #User3.dic     "User 3.dic")
  161.     (set #kein_User.dic "No user dictonary")
  162.     
  163.     
  164.     (set #Anleitungen_Auswahl (cat
  165.     "\nPlease choose the language for the AmigaGuide documentation.\n"))
  166.     
  167.     (set #Deutsch " Deutsch")
  168.     (set #English " English")
  169.     
  170.     (set #Anleitungen_Liste (cat
  171.     "Installation of the manual(s).\n"
  172.     "Please choose a volume or a directory.\n"
  173.     "A new directory will not be created."))
  174.  )
  175. )
  176. (set Quelle-dic "StormSYS/Dictionary/User.dic")
  177. (set Ziel-dic "StormC:StormSYS/Dictionary")
  178.  
  179. ;=====================================================================================
  180. ; Beginn der Installation
  181. ;=====================================================================================
  182.  
  183. (message #welcome)
  184. (welcome)
  185.  
  186. (
  187.   (set StormC-Version
  188.     (askchoice
  189.       (prompt #StormC-Version_Auswahl)
  190.       (help   @askchoice-help)
  191.       (default 1)
  192.       (choices
  193.     #V2
  194.     #V3
  195.       )
  196.     )
  197.   )
  198.   (if (= StormC-Version 0)
  199.     (
  200.       (set Quelle-1 "StormSYS/StormC_V2-startups")
  201.       (set Ziel-1 "StormC:StormSYS")
  202.       (set Quelle-2 "StormC_V2-Examples/standard")
  203.       (set Quelle-3 "StormC_V2-Examples/special")
  204.     )
  205.     (
  206.       (set Quelle-1 "StormSYS/StormC_V3-startups")
  207.       (set Ziel-1 "StormC:StormSYS/startups")
  208.       (set Quelle-2 "StormC_V3-Examples/standard")
  209.       (set Quelle-3 "StormC_V3-Examples/special")
  210.     )
  211.   )
  212. )
  213.  
  214. (if (= (exists "StormC:Include/stormamigainline.h" (noreq)) 1)
  215.   (
  216.     (run "delete StormC:Include/stormamigainline.h")
  217.   )
  218. )
  219.  
  220. (makeassign "INSTTMP" Quelle-1)
  221.  
  222. (
  223.   (set kopiere_startups
  224.     (askoptions
  225.       (prompt #startup_Auswahl)
  226.       (help   @askoptions-help)
  227.       (choices
  228.     #FAR_C_Startupcode
  229.     #FAR_C_C++_Startupcode
  230.       )
  231.     )
  232.   )
  233.   (if (IN kopiere_startups 0) (set FAR_C_Startupcode 1))
  234.   (if (IN kopiere_startups 1) (set FAR_C_C++_Startupcode 1))
  235.  
  236.   (if (= FAR_C_Startupcode 1)
  237.     (copyfiles
  238.       (source "INSTTMP:stormamiga_startups.o")
  239.       (dest Ziel-1)
  240.     )
  241.   )
  242.   (if (= FAR_C_C++_Startupcode 1)
  243.     (copyfiles
  244.       (source "INSTTMP:stormamiga_C++_startups.o")
  245.       (dest Ziel-1)
  246.     )
  247.   )
  248. )
  249.  
  250. (
  251.   (set wähle_Libs
  252.     (askoptions
  253.       (prompt #Versions_Auswahl)
  254.       (help   @askoptions-help)
  255.       (choices
  256.     #MC68EC020+
  257.       )
  258.     )
  259.   )
  260.   (if (IN wähle_Libs 0) (set MC68EC020+ 1))
  261.  
  262.   (if (= MC68EC020+  1)
  263.     (copyfiles
  264.       (source "lib/stormamiga.lib")
  265.       (dest "StormC:Lib")
  266.     )
  267.   )
  268. )
  269.  
  270. (
  271.   (set kopiere_Standardbeispiele
  272.     (askchoice
  273.       (prompt #Standardbeispiele_Auswahl)
  274.       (help   @askchoice-help)
  275.       (default 0)
  276.       (choices
  277.     #ja
  278.     #nein
  279.       )
  280.     )
  281.   )
  282.   (if (= kopiere_Standardbeispiele 0)
  283.     (
  284.       (set Zielverzeichnis
  285.     (askdir
  286.       (prompt #Beispiele_Liste)
  287.       (help @askdir-help)
  288.       (default "StormC:Examples")
  289.     )
  290.       )
  291.       (makeassign "INST" Zielverzeichnis)
  292.       (copyfiles
  293.     (source Quelle-2)
  294.     (dest "INST:stormamiga_lib_Examples")
  295.     (all)
  296.     (infos)
  297.       )
  298.     )
  299.   )
  300. )
  301.  
  302. (
  303.   (set Spezialfunktionen_Auswahl
  304.     (askchoice
  305.       (prompt #Spezialfunktionen_Auswahl)
  306.       (help   @askchoice-help)
  307.       (default 0)
  308.       (choices
  309.     #ja
  310.     #nein
  311.       )
  312.     )
  313.   )
  314.   (if (= Spezialfunktionen_Auswahl 0)
  315.     (
  316.       (copyfiles
  317.     (source "Include")
  318.     (dest "StormC:Include")
  319.     (all)
  320.       )
  321.       (set kopiere_User.dic
  322.     (askchoice
  323.       (prompt #User.dic_Auswahl)
  324.       (help   @askchoice-help)
  325.       (default 0)
  326.       (choices
  327.         #User1.dic
  328.         #User2.dic
  329.         #User3.dic
  330.         #kein_User.dic
  331.       )
  332.     )
  333.       )
  334.       (if (= kopiere_User.dic 0)
  335.     (copyfiles
  336.       (source Quelle-dic)
  337.       (dest Ziel-dic)
  338.       (newname "User 1.dic")
  339.     )
  340.       )
  341.       (if (= kopiere_User.dic 1)
  342.     (copyfiles
  343.       (source Quelle-dic)
  344.       (dest Ziel-dic)
  345.       (newname "User 2.dic")
  346.     )
  347.       )
  348.       (if (= kopiere_User.dic 2)
  349.     (copyfiles
  350.       (source Quelle-dic)
  351.       (dest Ziel-dic)
  352.       (newname "User 3.dic")
  353.     )
  354.       )
  355.       (set kopiere_Spezialbeispiele
  356.     (askchoice
  357.       (prompt #Spezialbeispiele_Auswahl)
  358.       (help   @askchoice-help)
  359.       (default 0)
  360.       (choices
  361.         #ja
  362.         #nein
  363.       )
  364.     )
  365.       )
  366.       (if (= kopiere_Spezialbeispiele 0)
  367.     (
  368.       (if (exists "INST:stormamiga_lib_Examples" (noreq))
  369.         (copyfiles
  370.           (source Quelle-3)
  371.           (dest "INST:stormamiga_lib_Examples")
  372.           (all)
  373.           (infos)
  374.         )
  375.       )
  376.       (if (= (exists "INST:stormamiga_lib_Examples" (noreq))0)
  377.         (
  378.           (set Zielverzeichnis
  379.         (askdir
  380.           (prompt #Beispiele_Liste)
  381.           (help @askdir-help)
  382.           (default "StormC:Examples")
  383.         )
  384.           )
  385.           (makeassign "INST" Zielverzeichnis)
  386.           (copyfiles
  387.         (source Quelle-3)
  388.         (dest "INST:stormamiga_lib_Examples")
  389.         (all)
  390.         (infos)
  391.           )
  392.         )
  393.       )
  394.     )
  395.       )
  396.     )
  397.   )
  398. )
  399.  
  400. (
  401.   (set kopiere_Anleitungen
  402.     (askchoice
  403.       (prompt #Anleitungen_Auswahl)
  404.       (help   @askchoice-help)
  405.       (if (= @language "deutsch")
  406.     ((default 0))
  407.     ((default 1))
  408.       )
  409.       (choices
  410.     #Deutsch
  411.     #English
  412.       )
  413.     )
  414.   )
  415.   (if (= kopiere_Anleitungen 0) (set Quelle-D "stormamiga_lib.guide"))
  416.   (if (= kopiere_Anleitungen 1) (set Quelle-D "stormamiga_lib_e.guide"))
  417.   (
  418.     (set Dokverzeichnis
  419.       (askdir
  420.     (prompt #Anleitungen_Liste)
  421.     (help @askdir-help)
  422.     (default "StormC:")
  423.     (disk)
  424.       )
  425.     )
  426.     (makeassign "INSTDOK" Dokverzeichnis)
  427.     (copyfiles
  428.       (source Quelle-D)
  429.       (dest "INSTDOK:")
  430.       (infos)
  431.     )
  432.   )
  433. )
  434.  
  435. (makeassign "INSTTMP")
  436. (makeassign "INST")
  437. (makeassign "INSTDOK")
  438.